<%


Function mercado_total_clube(conexao, id_clube)

		str = "Select COUNT(id_jogador) as total_clube FROM jogadores where id_clube="&id_clube
    	Set rs = conexao.Execute(str)
		
		DIM clube
		
		clube = 0
		
		If not rs.eof then
		
			clube = CInt(rs("total_clube"))
			
		End IF
		
		mercado_total_clube = clube
		

End Function

Function mercado_get_clube_capitao(conexao, id_clube)
	
		str = "Select capitao FROM clubes where id="&id_clube
    	Set rs = conexao.Execute(str)
		
		DIM capitao
		
		capitao = 0
		
		if not rs.eof then
			
			capitao = rs("capitao")
			
		End If
		
		mercado_get_clube_capitao = capitao

End Function


Function mercado_remover_clube_capitao(conexao, id_clube)
		

			str = "UPDATE clubes SET "
			str = str & "capitao='0' "
			str = str & " WHERE id="&id_clube
			Set rsI = conexao.Execute(str)		
	

End Function

Function mercado_adicionar_clube_capitao(conexao, id_clube, id_jogador)
		
			str = "UPDATE clubes SET "
			str = str & "capitao='"&id_jogador&"' "
			str = str & " WHERE id="&id_clube
			Set rsI = conexao.Execute(str)	

End Function
%>